home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 38 / 038.d81 / radio search (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  301 lines
  1. 1 gosub 60100:print"[147]"
  2. 2 poke 53280,0:poke 53281,0
  3. 4 gosub 320:print cl$
  4. 6 print g$ spc(3)"you are an intelligence analyst"
  5. 8 print spc(10)"at the supersecret"
  6. 10 print spc(3)"national security administration"
  7. 12 print:print"your task:"
  8. 14 print b$ spc(5)"locate a clandestine radio station"
  9. 16 print spc(5)"operated by a terrorist group."
  10. 18 print g$"your means:"
  11. 20 print b$ spc(5)"sophisticated, computer assisted"
  12. 22 print spc(5)"radio detection equipment."
  13. 24 print g$"your operational procedure:"
  14. 26 print b$ spc(5)"1. identify this covert station"
  15. 28 print spc(8)"which is transmitting on an"
  16. 30 print spc(8)"illegal radio frequency."
  17. 36 print b$ spc(5)"2. if and when you think you have"
  18. 38 print spc(8)"identified it, press the * key."
  19. 40 print g$ "evaluation of result:"
  20. 42 print b$ spc(5)"if you are correct, the terrorists"
  21. 44 print spc(5)"will be caught in time."
  22. 46 gosub 362
  23. 48 print g$"but, if you are wrong or take too much"
  24. 50 print"time -- b o o m --"
  25. 52 print:gosub 434
  26. 53 gosub330
  27. 54 print"          press space to start":poke198,.
  28. 58 ifpeek(203)<>60then58
  29. 60 ti$="000000"
  30. 62 print cl$:k$=""
  31. 64 x=int(rnd(0)*30)+1
  32. 66 xx=int(rnd(0)*5)+1:goto 124
  33. 68 print u$ u2$ l2$:print l2$
  34. 70 print tab(x+4) u2$ w$ chr$(161)
  35. 72 print tab(x+4) chr$(161)
  36. 74 print e$ l6$:return
  37. 76 poke s+24,15:poke s+5,0
  38. 78 poke s+6,240:poke s,75:poke s+1,34
  39. 80 al$=mid$(a1$,i,1)
  40. 82 if al$="."then gosub 100:return
  41. 84 if al$="-"then gosub 104:return
  42. 86 if al$="a"then gosub 100:gosub 104
  43. 88 if al$="b"then gosub 104:gosub 100:gosub 100:gosub 100
  44. 90 if al$="e"then gosub 100
  45. 92 if al$="o"then gosub 104:gosub 104:gosub 104
  46. 94 if al$="m"then gosub 104:gosub 104
  47. 96 if al$="t"then gosub 104
  48. 98 return
  49. 100 poke s+4,17:for d=1 to 20:next
  50. 102 poke s+4,16:for d=1 to 20:next:return
  51. 104 poke s+4,17:for d=1 to 80:next
  52. 106 poke s+4,16:for d=1 to 80:next:return
  53. 108 poke s+6,241:poke s+4,33:poke s+1,21
  54. 110 for j=0 to 15 step 3:poke s+24,j:next
  55. 112 for j=1 to 10:next:poke s+4,32:poke s+24,0:return
  56. 114 poke s+24,15:poke s+1,110:poke s+5,9
  57. 116 poke s+6,9:poke s+4,17:poke s+4,16:return
  58. 118 for j=1 to 20:poke s+24,15
  59. 120 for t=1 to 3:next:poke s+24,0
  60. 122 for t=1 to 3:next:next:return
  61. 124 r%=0:r$="":if ti$<"000500"then 132
  62. 126 poke 53281,2:poke 53280,10
  63. 128 print cl$:gosub 118
  64. 130 print"your time is up"tab(255) w$"b o o m":goto 542
  65. 132 if right$(c$(r),1)="?"then c$(r)=left$(c$(r),len(c$(r))-1)
  66. 134 y=int(rnd(0)*6)+1:r=x+xx
  67. 136 if r>30 then r=r-30
  68. 138 if x<0 or x>30 then x=0
  69. 140 in=0:print""
  70. 144 gosub2000:print" [159]after the transmission has ended,"
  71. 146 print"you can ask for intelligence analysis."
  72. 148 print" [154]when you think you have identified"
  73. 150 print"the terrorist, press * key for radar"
  74. 151 print"ranging"
  75. 152 print chr$(19);
  76. 154 print z$ w$ s2$"<-cursor->";
  77. 156 print s2$ s2$"moves dial at any time"s$
  78. 158 print e$ l4$
  79. 160 print s$ chr$(180) s$"7.0"spc(7)"7.1";
  80. 162 print spc(7)"7.2"spc(7)"7.3"s$ chr$(167)
  81. 164 print l2$:print l2$:print l6$
  82. 166 gosub 68
  83. 168 f=(7+x/100):f$=str$(f)+"0"
  84. 170 if len(f$)<6 then f$=f$+"0"
  85. 172 if x=0 then f$="7.000"+s$
  86. 174 print:print
  87. 176 if r>13 and r<18 then y=6
  88. 178 if y<5 then c$(r)=c$(r)+d$+"?":r$=s2$+g$+chr$(119)
  89. 180 if y<3 then r$=s2$+e$+chr$(123)
  90. 182 print n$ s$ l8$ s2$ r8$ s2$ l8$
  91. 184 f1$=b$+"frequency:":if r%=1 then f1$=e$+"time taken"
  92. 186 print s$ chr$(180) s$ f1$ n$ chr$(167);
  93. 188 print tab(16) g$ chr$(180)"radar"g$ chr$(167);
  94. 190 f2$=b$+s$+"call sign:":if r%=1 then f2$=e$+"r e s u l t"
  95. 192 print tab(25) n$ chr$(180) f2$ n$ chr$(167):if r%=0 then 198
  96. 194 print s$ t$ s2$ chr$(180) r$ tab(22) n$ chr$(167);
  97. 196 print tab(25) chr$(180) tab(28) yr$ tab(37) chr$(167):goto 204
  98. 198 print s$ chr$(180) f$ s$"mhz"s$ chr$(167);
  99. 200 print tab(16) g$ chr$(180) r$ tab(22) g$ chr$(167);
  100. 202 print tab(25) n$ chr$(180) tab(28) c$(r) tab(37) n$ chr$(167)
  101. 204 print n$ s$ l0$ s2$ r0$ s2$ l0$
  102. 206 gosub 210:if r%=1 then return
  103. 208 goto 222
  104. 210 h1$=n$:h$=b$+"transmission being received:"+s2$+h1$
  105. 212 if k$="i"then h$="intelligence analysis reveals:":h1$=d$
  106. 214 print:print h1$ l4$
  107. 216 print s$ chr$(180) tab(5) h$ tab(37) chr$(167)
  108. 218 print s$ chr$(180) left$(ll$,35) tab(37) chr$(167)
  109. 220 print l6$:print u2$;:return
  110. 222 a%=0:a2$="":y$="":if r>13 and r<18 then a%=1
  111. 224 if r>17 and r<26 then a%=2
  112. 226 if y=1 then y$=y1$
  113. 228 if y=2 or y=3 then y$=y2$
  114. 230 a1$=a$(r)+y$:a1=len(a1$)
  115. 232 if a1<34 then 238
  116. 234 a2$=right$(a1$,a1-33)
  117. 236 a2=len(a2$)
  118. 238 for i=1 to a1+1
  119. 240 a3$=mid$(a2$,i,1)
  120. 242 aa$=mid$(a1$,i,33)+a3$
  121. 244 print tab(2) aa$ s$ u$
  122. 246 if a%=0 then 258
  123. 248 if a%=2 then 254
  124. 250 if i=1 or i=8 then gosub 118
  125. 252 if a%=1 then 260
  126. 254 if i=2 or i=12 then gosub 114
  127. 256 if i=20 or i=36 then gosub 114
  128. 258 if a%=0 or y<4 then gosub 76
  129. 260 if i=1 then for jj=1 to 50
  130. 262 if peek(203)=49 then 490
  131. 264 if peek(203)<>2 then 270
  132. 266 if (peek(653)and1)=1  then x=x-1:goto 124
  133. 268 if (peek(653)and1)=0 then x=x+1:goto 124
  134. 270 if i=1 then next jj
  135. 272 next i
  136. 274 print:print
  137. 276 gosub2000
  138. 280 if in<2 then 286
  139. 282 print u$ spc(8) z$ e$"time for a decision"
  140. 284 printll$:goto 288
  141. 286 print n$"press"s$ z$ w$"r"rf$ n$ s$"to replay transmission"
  142. 288 print n$"press"s$ z$ w$"i"rf$ s$ z$ d$ s$"for intelligence analysis"
  143. 290 print n$"or move"s$ z$ w$"<-cursor->"rf$ n$ s2$"to change frequency"
  144. 292 for j=1 to 10:get k$:next
  145. 294 gosub 108
  146. 296 get k$:if k$=""then for j=1 to 700:next:goto 294
  147. 298 if asc(k$)=29 or asc(k$)=157 then 266
  148. 300 if k$="*"then 490
  149. 302 for j=1 to 5:print u$;:next
  150. 304 gosub2000:print""
  151. 306 for j=1 to 4:print u2$;:next
  152. 308 gosub 210:if k$<>"i"then 230
  153. 310 if y>3 then 316
  154. 312 if in=0 then print tab(2) y3$:in=in+1:print u$:goto 318
  155. 314 if y<3 then print tab(2) e$ y5$ lp$ n$:in=in+1:print u$:goto 318
  156. 316 print tab(2) n$ i$(r)
  157. 318 print u$;:goto 274
  158. 320 dim c$(30),a$(30),i$(30)
  159. 322 s=54272:u$=chr$(145):u2$=u$+u$:cl$=chr$(147)
  160. 324 z$="":rf$=chr$(146):w$=chr$(5):d$=chr$(150)
  161. 326 n$="[153]":b$="[154]":g$="[155]":e$="[158]"
  162. 328 return
  163. 330 s$=" ":s2$=s$+s$
  164. 332 for j=1 to 4:p$=p$+".":next
  165. 334 l1$="[221]"+p$+":"+p$
  166. 336 l2$=s$+"[165]"+s2$+l1$+l1$+l1$+"[221]"+s2$+"[167]"
  167. 338 for j=1 to 35:l3$=l3$+"[183]":l5$=l5$+"[175]":next
  168. 340 l4$=s$+"[207]"+l3$+"[208]"
  169. 342 l6$=s$+"[204]"+l5$+"[186]"
  170. 344 for j=1 to 11:l7$=l7$+"[183]":l9$=l9$+"[175]":next
  171. 346 for j=1 to 5:r7$=r7$+"[183]":r9$=r9$+"[175]":next
  172. 348 l8$="[207]"+l7$+"[208]"
  173. 350 r8$=g$+"[207]"+r7$+"[208]"+n$
  174. 352 l0$="[204]"+l9$+"[186]"
  175. 354 r0$=g$+"[204]"+r9$+"[186]"+n$
  176. 356 for j=1 to 37:ll$=ll$+s$:next
  177. 358 for j=1 to 39:l$=l$+"[183]":next
  178. 360 return
  179. 362 for j=1 to 30:read c$(j):next
  180. 364 data n6nta,n6gdm,w6nbj,k2sno,w4wj,ai6i,n49dt,n5473,xe1fe,dl2sr,ur5uw
  181. 366 data none,none,none,none,none,none
  182. 368 data wien,rome,paris,bbc,wsl,kfi,knx,wnyc,wx-11,wx-12,lax,cbs-tv,wwv
  183. 370 for j=1 to 30:read a$(j):next
  184. 372 data cq from november six november tango alpha
  185. 374 data this is hemet emergency operations center with art on the mike
  186. 376 data please clear the frequency for emergency traffic  qsl?
  187. 378 data" .-.-.  ...-.-"
  188. 380 data earthquake damage here is light
  189. 382 data" -.-.  --.-  -..  .  .- .. -.... ..  -.-"
  190. 384 data my eta lax is 18 hours local time
  191. 386 data mayday - fire in left engine - request emergency clearance
  192. 388 data manana senorita
  193. 390 data sprechen sie deutsch?
  194. 392 data strastviche tovarich
  195. 394 data" ...-  unidentified transmission"
  196. 396 data" ...-  unidentified transmission"
  197. 398 data none    none
  198. 400 data none    none
  199. 402 data none    none
  200. 404 data none    none
  201. 406 data guten abend meine damen und herren
  202. 408 data amore amore  a rividerci
  203. 410 data bon jour madam et monsieur
  204. 412 data this - is - london
  205. 414 data music music
  206. 416 data music music
  207. 418 data here is the news - but first a commercial
  208. 420 data the temperature will be in the lower eighties
  209. 422 data probability of rain is 80% tonight
  210. 424 data frost warning for all areas
  211. 426 data you are cleared for landing on runway 2 west
  212. 428 data" ........."
  213. 430 data"the time is 14:25 utc"
  214. 432 return
  215. 434 i$(1)="ham radio station"
  216. 436 for j=2 to 6:i$(j)=i$(1):next
  217. 438 i$(7)="aircraft traffic"
  218. 440 i$(8)=i$(7)
  219. 442 i$(9)="foreign ham station"
  220. 444 i$(10)=i$(9):i$(11)=i$(9)
  221. 446 i$(12)="swat team communication"
  222. 448 i$(13)=i$(12)
  223. 450 i$(14)="no reception on this frequency"
  224. 452 for j=15 to 17:i$(j)=i$(14):next
  225. 454 i$(18)="fo